﻿Imports Sistema_InformacionNaviera.BC
Imports Sistema_InformacionNaviera.BE
Imports Sistema_InformacionNavier.UTIL

Public Class Consultar_Cliente
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            CargarTdoc("TD")
            CargarGridConsulta()
        End If
        If My.Request.Params("__EVENTTARGET") = "MiFuncionPaquetes" Then

            If Session("BSSCodigoEntidadCli") = Nothing Then
                txtCodCsne.Text = String.Empty
            Else
                txtCodCsne.Text = Session("BSSCodigoEntidadCli")
                txtCsne.Text = Session("BSSNombreEntidadCli")
            End If
        End If
    End Sub


    Public Sub CargarTdoc(ByVal sTipo As String)
        Dim listGeneralBE As List(Of GeneralBE) = New List(Of GeneralBE)
        Dim objGeneralBC As GeneralBC = New GeneralBC()

        Dim objUnidadSeleccione As GeneralBE = New GeneralBE
        objUnidadSeleccione.Codigo = 0
        objUnidadSeleccione.Descripcion = "[Seleccione]"
        listGeneralBE.Add(objUnidadSeleccione)
        objUnidadSeleccione.Codigo = sTipo

        listGeneralBE.AddRange(objGeneralBC.ListadoGeneral(objUnidadSeleccione))

        cboTDoc.DataSource = listGeneralBE
        cboTDoc.DataValueField = "Codigo"
        cboTDoc.DataTextField = "Descripcion"
        cboTDoc.DataBind()

    End Sub

    Public Sub CargarGridConsulta()
        Dim objEntidadesBE As New EntidadesBE
        Dim lstEntidadesBE As New List(Of EntidadesBE)
        Dim objUtil As New Funciones
        Dim objEntidadesBC As New EntidadesBC

        objEntidadesBE.TDocu = "" : objEntidadesBE.Codigo = "" : objEntidadesBE.NDocu = ""
        If cboTDoc.SelectedValue.Trim <> "" And cboTDoc.SelectedValue <> "TD" Then
            objEntidadesBE.TDocu = cboTDoc.SelectedValue.Trim
        End If
        If txtCodCsne.Text.Trim <> "" And txtCsne.Text.Trim <> "" Then
            objEntidadesBE.Codigo = txtCodCsne.Text.Trim
        End If
        If txtNroDoc.Text.Trim <> "" Then
            objEntidadesBE.NDocu = txtNroDoc.Text.Trim
        End If 

        lstEntidadesBE = objEntidadesBC.ListaAdministrarEntidades(objEntidadesBE)
        dgClientes.DataSource = lstEntidadesBE
        dgClientes.DataBind()
    End Sub

    Protected Sub btnConsultar_Click(sender As Object, e As EventArgs) Handles btnConsultar.Click
        CargarGridConsulta()
    End Sub

    Protected Sub dgClientes_RowCommand(sender As Object, e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles dgClientes.RowCommand
        Dim strCodigo As String = Convert.ToString(e.CommandArgument)
        Dim sMensaje As String = String.Empty
        Dim bExito As Boolean

        Select Case e.CommandName  '.ToLower 
            Case "Contactos" 
                Session("Codigo") = strCodigo
                Response.Redirect("~/Page/Comercial/AdministrarContactos.aspx", True)
            Case "Editar"
                Session("TipoEvento") = 1
                Session("Codigo") = strCodigo
                Response.Redirect("~/Page/Comercial/AdministrarCliente.aspx", True)
            Case "Eliminar"
                If MsgBox("Esta seguro de eliminar el registro?", vbYesNo, Me.Title) = MsgBoxResult.Yes Then

                    Dim objEntidadesBE As New EntidadesBE
                    Dim objEntidadeseBC As New EntidadesBC
                    objEntidadesBE.Codigo = strCodigo
                    objEntidadesBE.Usuario = Session("idIusuario")

                    bExito = objEntidadeseBC.EliminarEntidad(objEntidadesBE, bExito, sMensaje)
                    If bExito Then
                        MsgBox("El registro fue eliminado con éxito.", vbInformation, Me.Title)
                        CargarGridConsulta()
                    End If
                End If
        End Select
    End Sub

    Protected Sub btnLimpiar_Click(sender As Object, e As EventArgs) Handles btnLimpiar.Click
        'Response.Redirect("~/Page/Default.aspx", True)
        txtCodCsne.Text = "" : txtCsne.Text = "" : txtNroDoc.Text = "" : cboTDoc.SelectedIndex = 0
    End Sub

    Protected Sub btnNuevo_Click(sender As Object, e As EventArgs) Handles btnNuevo.Click
        Session("TipoEvento") = 0
        Response.Redirect("~/Page/Comercial/AdministrarCliente.aspx", True)
    End Sub

    Sub Cambiarpagina(ByVal sender As Object, ByVal e As GridViewPageEventArgs)

        Dim objEntidadesBE As New EntidadesBE
        Dim lstEntidadesBE As New List(Of EntidadesBE)
        Dim objUtil As New Funciones
        Dim objEntidadesBC As New EntidadesBC

        objEntidadesBE.TDocu = "" : objEntidadesBE.Codigo = "" : objEntidadesBE.NDocu = ""
        If cboTDoc.SelectedValue.Trim <> "" And cboTDoc.SelectedValue <> "TD" Then
            objEntidadesBE.TDocu = cboTDoc.SelectedValue.Trim
        End If
        If txtCodCsne.Text.Trim <> "" And txtCsne.Text.Trim <> "" Then
            objEntidadesBE.Codigo = txtCodCsne.Text.Trim
        End If
        If txtNroDoc.Text.Trim <> "" Then
            objEntidadesBE.NDocu = txtNroDoc.Text.Trim
        End If

        lstEntidadesBE = objEntidadesBC.ListaAdministrarEntidades(objEntidadesBE)
        dgClientes.PageIndex = e.NewPageIndex
        dgClientes.DataSource = lstEntidadesBE
        dgClientes.DataBind()



    End Sub


End Class